<%@ Language=VBScript %>
<%Option Explicit%>

<%
	response.CacheControl = "no-cache"

	on error resume next
			
	Dim iporcentaje
	iporcentaje = cint(Application("iCount")) / cint(Application("CountAlumnos"))
	
	if iporcentaje >= 0 and iporcentaje <= 1 then
		response.Write cint(iporcentaje * 100)
	else
		if cint(Application("iCount")) >= cint(Application("CountAlumnos")) then
			response.Write "100"
		end if
	end if
	
%>